home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / util / rexx / Aminet.awnp.lha / Aminet.awnp / Install-Aminet.awnp < prev    next >
Text File  |  2000-04-18  |  2KB  |  125 lines
  1. ;
  2. (set VerS "$VER: 'Install-Aminet.awnp' 1.9 By Bruce Steers")
  3. (set Ver (substr VerS 28 3))
  4.  
  5. ; Script created by Bruce Steers bsteers@btinternet.com
  6.  
  7. (set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
  8. (set #needInst43 "You must use Installer version 43 or greater.")
  9.  
  10. (set path (pathonly @icon) )
  11.  
  12. (if (< (/ @installer-version 65536) 43)
  13.   (abort #needInst43)
  14. )
  15.  
  16. (set info (cat "installing Aminet.awnp "Ver"\nPlease select a Dir to install to.\nNO drawer will be created"))
  17.  
  18. (complete 5)
  19.  
  20.     (set dst
  21.         (copyfiles
  22.         (dest "SYS:Tools")
  23.         (source "Aminet.awnp")
  24.         (prompt info)
  25.         (help info "\n\n Also a settings file will be saved in the same dir.\n\n\n" @copyfiles-help)
  26.         (confirm)
  27.         (infos)
  28.         )
  29.     )
  30. (complete 30)
  31.  
  32.  
  33. (set lang
  34.     (askoptions
  35.         (prompt "Select Language catalogs to install\nEnglish is Built in.")
  36.         (help @askchoice-help)
  37.         (choices "Español")
  38.         (default 0)
  39.     )
  40. )
  41.  
  42. (if (= lang 1)
  43.   (
  44.   (set cata (tackon path "catalogs/español/"))
  45.     (copyfiles
  46.     (source cata)
  47.     (dest "LOCALE:Catalogs/español/")
  48.     (all)
  49.     )
  50.   )
  51. )
  52.  
  53.  
  54. (set lang
  55.     (askoptions
  56.         (prompt "Select the language for the Readme files to install\n")
  57.         (help @askchoice-help)
  58.         (choices "English" "Español")
  59.         (default 1)
  60.     )
  61. )
  62. (complete 40)
  63.  
  64. (if (or (= lang 1) (= lang 3))
  65.   (
  66.   (set rme (tackon path "Docs/English/"))
  67.     (copyfiles
  68.     (dest "SYS:Tools")
  69.     (source rme)
  70.     (prompt "Select a dir to copy the readme file to.")
  71.     (help @copyfiles-help)
  72.     (confirm)
  73.     (infos)
  74.    (all)
  75.     )
  76.   )
  77. )
  78. (complete 50)
  79.  
  80. (if (or (= lang 2) (= lang 3))
  81.   (
  82.   (set rme (tackon path "Docs/Español/"))
  83.     (copyfiles
  84.     (dest "SYS:Tools")
  85.     (source rme)
  86.     (prompt "Select a dir to copy the leame file to.")
  87.     (help @copyfiles-help)
  88.     (confirm)
  89.     (infos)
  90.    (all)
  91.     )
  92.   )
  93. )
  94.  
  95. (complete 80)
  96.     (copylib
  97.     (source "files/awnpipe-handler")
  98.     (dest "l:")
  99.     (prompt "installing AWNPipe-handler")
  100.     (help "installing AWNPipe-handler\n\n" @copylib-help)
  101.     (confirm)
  102.     )
  103. (complete 60)
  104.     (copyfiles
  105.     (dest "Devs:dosdrivers/")
  106.     (source "files/awnpipe")
  107.     (prompt "installing AWNPipe: Descriptor file")
  108.     (help "installing AWNPipe:\n\n" @copylib-help)
  109.     (confirm)
  110.     (infos)
  111.     )
  112. (complete 90)
  113.     (working ("Activating AWNPipe:"))
  114.  
  115.             (run "C:assign AWNPipe: dismount")
  116.             (run "C:mount AWNPipe:")
  117.  
  118. (complete 99)
  119.  
  120. (set @default-dest (expandpath dst))
  121.  
  122. (complete 100)
  123.  
  124. (exit  "\n\n" @app-name " Installaton is now over.\n")
  125.